#exo3

X <- rnorm(1000,mean=0,sd=1)
hist(X,breaks=100)

#3

effc <- function(Y){
X <- rnorm(1000,mean=0,sd=1)
hist <- hist(X,breaks=Y)
eff <- hist$counts
return(eff)
}


Beuh <- effc(100)
Beuh
chisq.test(Beuh,proba=